home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 December / 1986-12.d64 / video setup (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  111 lines
  1. 0 print"[147]"
  2. 10 print "64 screen setup"
  3. 20 dim s(255)
  4. 30 s0=16384
  5. 40 print "want to use:"
  6. 50 print "1. characters
  7. 60 [153] "2. high res
  8. 70 input "1 or 2";j8
  9. 80 if j8<1 or j8>2 goto40
  10. 90 b3=4:if j8=2 goto160
  11. 100 print "do you want to build
  12. 110 [153] "   your own character set (y/n)";
  13. 120 [133] y$:y$[178][200](y$,1)
  14. 130 [139] y$[178]"y" [137]160
  15. 140 [139] y$[179][177]"n" [137]90
  16. 150 b3[178]0:c[178]64
  17. 160 [153]
  18. 170 [153] "pick a memory area:"
  19. 180 [129] j[178]0 [164] 3
  20. 190 [139] j8[178]2 [176] b3[177]0 [176] j[178]0 [176] j[178]2 [167] [153] j;": ";j[172]s0;"to";(j[170]1)[172]s0[171]1
  21. 200 [130] j
  22. 210 [153] "your choice (0 to 3)";:[139] j8[178]2 [167] [153] "(1 or 3 best)";
  23. 220 [133] b:[139] b[179]0 [176] b[177]3 [137]160
  24. 230 [139] b[178]0 [167] [129] j[178]0 [164] 3:s(j)[178]2:[130] j
  25. 240 [139] b[178]0 [176] b[178]2 [167] [129] j[178]64 [164] 127:s(j)[178]2:[130] j
  26. 250 [143]
  27. 260 [139] j8[178]1 [167] [153] "--character screen--":s[178]32
  28. 270 [139] j8[178]2 [167] [153] "--hi res screen--":s[178]128
  29. 280 [145] j8 [141]760,800
  30. 290 [133] "are you ready for data";y$
  31. 300 [139] [200](y$,1)[179][177]"y" [137]290
  32. 310 [153] "load"
  33. 320 [153] "     video locations ";
  34. 330 [153]
  35. 340 [139] b5[178]32 [167] [153] "high resolution."
  36. 350 [139] j8[178]1 [167] [153] "text screen"
  37. 360 [153] "video matrix:";b[172]s0[170]v[172]64;"to";b[172]s0[170](v[170]16)[172]64[171]1
  38. 370 [153] "(sprite pointers at";b[172]s0[170]v[172]64[170]1016;"to";b[172]s0[170]v[172]64[170]1023;")"
  39. 380 [139] j8[178]1 [175] b3[178]0 [167] [153] "standard character set.":c[178]64:[137]400
  40. 390 [153] "character base:";b[172]s0[170]c[172]64;"to";b[172]s0[170](c[170]s)[172]64[171]1
  41. 400 [153]
  42. 410 [153] "poke 56576,";[202]([196](7[171]b),2)
  43. 420 [153] "    (to set memory block)"
  44. 430 [153] "poke 53272,";[202]([196](v[170]c[173]16),2)
  45. 440 [153] "    (to set vm and cb)"
  46. 450 [139] j8[178]1 [167] [141]1070
  47. 460 [153] "poke 53265,";[202]([196](b5[170]27),2)
  48. 470 [139] b5[179][177]0 [167] [153] "    (to enable hi res)"
  49. 480 [139] b5[178]0 [167] [153] "    (to kill hi res)"
  50. 490 [133] "will you want sprites";y$
  51. 500 [139] y$[178]"n" [137]590
  52. 510 [139] y$[179][177]"y" [137]490
  53. 520 [153] "sprites may be placed at:"
  54. 530 f[178][171]1
  55. 540 [129] j[178]0 [164] 255
  56. 550 [139] s(j)[178]0 [175] f[178][171]1 [167] [141]700
  57. 560 [139] s(j)[179][177]0 [175] f[179][177][171]1 [167] [141]730
  58. 570 [130] j
  59. 580 [139] f[179][177][171]1 [167] [141]730
  60. 590 [153]:[139] b[178]3 [137]630
  61. 600 [153] "careful:"
  62. 610 [153] "basic is usually in 2049 to 40959"
  63. 620 [128]
  64. 630 s$[178]"sprites"
  65. 640 [129] j[178]64 [164] 127 [169] 16
  66. 650 [139] s(j)[177]0 [167] s$[178]"** warning! **"[170][199](13)[170]"addresses"
  67. 660 [130] j
  68. 670 [153] s$;" from 53248 to 57343 are"
  69. 680 [153] "tough to get at"
  70. 690 [128]
  71. 700 p[178]j
  72. 710 f[178]0
  73. 720 [142]
  74. 730 [153] s0[172]b[170]p[172]64;"to";s0[172]b[170]j[172]64[171]1;"(sprites";p;"to";j[171]1;")"
  75. 740 f[178][171]1
  76. 750 [142]
  77. 760 [143]
  78. 770 [139] b3[177]0 [167] [153] "the character set may be at:":[141]840
  79. 780 [153] "video matrix (screen memory)...":[141]960
  80. 790 [142]
  81. 800 b5[178]b5[170]32
  82. 810 [153] "the hi-res screen may be at:":[141]840
  83. 820 [153] "video matrix (color memory)...":[141]960
  84. 830 [142]
  85. 840 n[178]0:[129] j[178]0 [164] 255 [169] s
  86. 850 [139] s(j)[177]t [176] s(j[170]s[171]1)[177]t [137]870
  87. 860 [153] "(";j[173]s;")";b[172]s0[170]j[172]64;"to";b[172]s0[170](j[170]s)[172]64[171]1:n[178]n[170]1:c[178]j[173]s
  88. 870 [130] j
  89. 880 [139] n[179]2 [137]920
  90. 890 [153] "your choice (0 to";(j[171]s)[173]s;")";
  91. 900 [133] c0:[139] c0[179]0 [176] c0[177]c [137]840
  92. 910 c[178]c0
  93. 920 c[178]c[172]s
  94. 930 [129] j[178]c [164] c[170]s[171]1:s(j)[178]3:[130] j
  95. 940 [153]
  96. 950 [142]
  97. 960 [129] j[178]0 [164] 255 [169] 16
  98. 970 [139] s(j)[177]t [176] s(j[170]15)[177]t [137]990
  99. 980 [153] "(";j[173]16;")";b[172]s0[170]j[172]64;"to";b[172]s0[170](j[170]16)[172]64[171]1:v[178]j[173]16
  100. 990 [130] j
  101. 1000 [153] "your choice (0 to";v;")";
  102. 1010 [133] c0:[139] c0[179]0 [176] c0[177]v [137]1000
  103. 1020 v[178]c0
  104. 1030 v[178]v[172]16
  105. 1040 [129] j[178]v [164] v[170]15:s(j)[178]3:[130] j
  106. 1050 [153]
  107. 1060 [142]
  108. 1070 [153] "poke 648,";[202]([196](b[172]64[170]v[173]4),2)
  109. 1080 [153] "    (to connect 'print')"
  110. 1090 [142]
  111.